home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / fido / GFindSrc.lha / GFindXXXSrc / make259 < prev    next >
Text File  |  1996-09-03  |  953b  |  39 lines
  1. ;
  2. ; Compile the net259 homepage
  3. ;
  4.  
  5. failat 21
  6. stack 100000
  7.  
  8. pcd at:www/x
  9.  
  10. ; buildup list of nodes in 2:259
  11. gfindxxx >RAM:259t n 2:259/* #? lformat="%t<!-- %D --> <TR><TD>%S<TD> %3<TD> <A HREF=%qmailto:%g.fido.zetnet.co.uk%q>%s</A><TD> %l<TD> %O<TD> %i" quiet
  12.  
  13. ; 'alter' it
  14. awk -f at:www/make259.awk ram:259t >ram:259tt
  15.  
  16. ; Join parts and add update date...
  17. type fido259h.html >RAM:fido259.html
  18. type RAM:259tt >>RAM:fido259.html
  19. echo "</TABLE><P>Table last updated " >>RAM:fido259.html NOLINE
  20. echo `date` >>RAM:fido259.html
  21. echo ", using " >>RAM:fido259.html NOLINE
  22. echo `dir nodelist:nodelist.???` >>RAM:fido259.html
  23. echo "</P>" >>RAM:fido259.html
  24. type fido259t.html >>RAM:fido259.html
  25. delete RAM:259t#? QUIET
  26.  
  27. ; Finishup
  28. delete >NIL: at:www/fido259#?.html
  29. copy ram:fido259.html TO AT:www/ QUIET
  30. delete >NIL: RAM#?.html
  31.  
  32. ; And while we are at it, lets archive
  33. cd at:www
  34. delete >NIL: www.lha
  35. lha >NIL: a www.lha #?
  36.  
  37. ; fini, cd back to where we were...
  38. pcd
  39.